home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / cdity / mexch127.lha / magic-exchange / install / arexx / MagicEx.rexx < prev   
OS/2 REXX Batch file  |  1997-03-03  |  2KB  |  62 lines
  1. /* $VER: Example Script for Magic-Exchange V1.0
  2.  Simple Magic-Exchange Test - ARexxScript
  3.  
  4.  © 1997 by Ingo Musquinier & Michael Einemann
  5.  
  6.  Syntax: rx MagicEx.rexx CDity action
  7. */
  8.  
  9. options results
  10. arg Commodity action
  11. compress(action)
  12.  
  13. if action="INACTIVE" then action="CX_Deactivate"
  14. if action="ACTIVE" then action="CX_Activate"
  15. if action="REMOVE" then action="CX_Remove"
  16.  
  17.  
  18. if open(file,'ENV:mxchg',r) then do /* read Enviroment Variable to get information */
  19.  path=readLn(file)                 /* where the hell the list with CDities goes */
  20.  close(file)
  21. end
  22.  
  23. if ~open(file,'ENV:mxchg',r) then do
  24.  say "Enviroment Variable for Magic-Exchange was not found!"
  25.  exit
  26. end
  27.  
  28. address value 'MXCHG' /* change address to MagicExchanges port */
  29.  
  30. me_getcxlst /* send Command to MagigExchange to get a list of running CDities */
  31.  
  32. address command wait "2 secs" /* somehow it doesn`t work without a pause */
  33.                               /* so, let this line include the script */
  34. address
  35.  
  36. if open(cdity,''path'',r) then do /* open the list */
  37.  
  38.   Do i=1 until eof(cdity)
  39.     Cdty.i=upper(readln(cdity)) /* read the list and put CDities into variables */
  40.      if cdty.i=commodity then call manipulation /* if wanted CDity found then call label */
  41.     else nop
  42.   end
  43.  
  44.  say Commodity 'was not found in current list of Running Commodities. :-('
  45. end
  46.  
  47. exit
  48.  
  49. manipulation:
  50.  
  51.     address value 'MXCHG' /* change address to MagicExchanges port */
  52.  
  53.     me_selectcx commodity /* select the Wanted CDity */
  54.     address command wait "2 secs" /* a little pause must be there, do not remove this line! */
  55.     action /* make action to CDity */
  56.  
  57.     address /* change address e.g. to Shell for output */
  58.  
  59.     Say "Operation on" commodity "done."/* output this to e.g. Shell */
  60.     exit
  61.  
  62.